Select Code to Download

#! perl -sw
use strict;
...
        }
    }
}

#! perl -slw
use strict;
...
print $server 'This is the last line';

close $server;

C:\test>junk88
03a9a7a0: 'abcdefghijklmnopqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVW
+XYZ'
...
03a9a7a0: 'abcdefghijklmnopqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVW
+XYZ'
03a9a7a0: 'This is the last line'