pmacs3/foo.pl

package Foo;

use warnings FATAL => 'all';
use strict;

my $blah = "foo foo bar" . "foo foo bar" . "foo foo bar" . "foo foo bar" . "foo foo bar" . "one";

use Carp;

${$blarg->{foo}} = 33;
${blarg} = 33;
@{$blarg};
@$blarg;


foreach my $i (0..40) {
    if($foo) {
        print "joshua!\n";
    }
}

$blah::blahrg->foo(one=>3, two=>2, three=>1);


my $foo = <<EOF;
hi hi hi EOF hi hi EOF
 EOF

EOF

print $foo;