Select Code to Download

#!/bin/env perl
use strict;
...
sub f {
    return 1;
}

1

my $s = 'f';
print $s(), $/;