Select Code to Download

seek( $IN1, 0, SEEK_END );
my $length = tell($IN1);
seek( $IN1, 0, 0 );

split( /\n/, $bob );