#!perl
use Foo qw(openOut);
openOut(*BAR,"~/output.txt");
print("Hello world!\n");