use strict;

my $fish = "Trout";
print "Works: $fish\n";
print "Not  : $main::fish\n";