package main; {
    ...
}

##</code><code>##

{
    ...
}

##</code><code>##

package Blah; {
    sub foo {
        print "bar!\n";
    }
}

package main; {
    foo();
}

##</code><code>##

perl -wMstrict -E 'my $x; say *::x; say *main::x'
*main::x
*main::x

##</code><code>##

int main (int argc, char* argv[])

##</code><code>##

my ($x, $y);

if (@ARGV == 2){
    ($x, $y) = @ARGV;
}
else {
   ...
}

package main; {
    print "$x, $y\n";
}

##</code><code>##

if __name__ == '__main__':
    main()

##</code><code>##

x = 1
y = 2

print(x + y)