Select Code to Download

#!/usr/bin/perl -w

package GlobPack;
...
    my $self = shift;
    print while (<$self>);
}

package main;

my $fileread = GlobPack->new('globpack.pl') || die "Can't get the glob
+ject.\n";

$fileread->read();