sub four() 
{
    my $x = 1;
    return 4;
}
1;