Select Code to Download

#!/opt/perl
use strict;
...
use MyOutputXSV;
my $app = MyOutputXSV->new();
$app->run();

package MyOutputXSV;
use strict;
...
}

1;

first  last   phone
Jack   Tors   555-1212
Frank  Rizzo  555-1515