Select Code to Download

#!/usr/bin/perl -w

use strict;
...

1;
__END__

#!/usr/bin/perl
use warnings;
use strict;
...
    print $sock $name.'->'. $text, "\n";
}
__END__