Select Code to Download

open my $f, '>out.txt' or die 'ouch!';
print $f 'foo';
...

my $f = 'bar';
print $f, 'foo';

use warnings;
use strict;
...

#supposed to be a pattern match, but interpreted as division.
print $f / $e/ ? 'yes' : 'no';