Select Code to Download

#!/usr/bin/perl
use warnings;
...
use Guts;
my $Gs = Guts->new;
$Gs->gutsy(@data);

pakage Guts;

...
}

1;