Select Code to Download

#!/usr/bin/perl -w
my $string = "rid";
...
print;
}
}

#!/usr/bin/perl -w

...
        print;
    }
}

use strict;

...
        print $line;
    }
}