Select Code to Download

use open IO => ':crlf';

#!/usr/bin/env perl -l

...
    print '5. ', $prompt, unpack 'H*' while (<$fh>);
    close $fh;
}

1. mem:  68656c6c6f0d0a
2. mem:  68656c6c6f0d0a
...
3. file: 68656c6c6f0d0a
4. file: 68656c6c6f0d0a
5. file: 68656c6c6f0a

1. mem:  68656c6c6f0a
2. mem:  68656c6c6f0a
...
3. file: 68656c6c6f0a
4. file: 68656c6c6f0a
5. file: 68656c6c6f0a