Select Code to Download

package main; {
    ...
}

{
    ...
}

package Blah; {
    sub foo {
...
package main; {
    foo();
}

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

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

my ($x, $y);

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

if __name__ == '__main__':
    main()

x = 1
y = 2

print(x + y)