Select Code to Download

sub AUTOLOAD {print $AUTOLOAD}
*foo = bar;
foo ();

my %hash = (foo => 'bar');
chop for values %hash;
print values %hash, "\n";

print 80.101.114.108;