Select Code to Download

#!/usr/bin/perl -w

...
my $bar = 'foo';
my $foo = Foo->new;
print "|", $foo->convert(sub {$i; return $bar}), "|\n";

#!/bin/false
package Foo;
...
}

1;