Select Code to Download

open FH, '<', 'myfile';
print FH, "something\n";

No comma allowed after filehandle at ...

open my $fh, '<', 'myfile';
print $fh, "something\n";

open local *FH, '<', 'myfile';
while (<FH>) {
    # do something
}
close FH;

#!/usr/bin/perl

...
is \@bar, [$bar], 'good: got $bar';

done_testing;