use warnings; 
use strict; 
use Cwd; 
sub main() { 
  my $foo = 'bar';
}

main();