Is the following the correct way of getting the same output with Perl

No. Don't over-think it. ;-) Try

print PRN "\x02L\n";
[download]

-sauoq
"My two cents aren't worth a dime.";