one-liner version of barcode reader

pp -e "use threads; use Thread::Queue; use Win32::GUI::Loft::Design;
use Win32API::CommPort; $p = new Win32API::CommPort ('COM1');
$p->is_baudrate(9600); $p->is_parity("none"); $p->is_databits(8);
$p->is_stopbits(1); $p->is_read_interval(10);
$p->is_write_const_time(0); $p->is_write_char_time(0);
$p->initialize(qw(BAUD PARITY DATA STOP RINT WCONST WTOT));
$p->update_DCB; $q=new Thread::Queue; async { open PORT, '+>COM1';
$q->enqueue(join('',map({vec($_,7,1)=0;$_} split(//,$_) ))) while
<PORT>}->detach;
$d=Win32::GUI::Loft::Design->newLoad('barcode.gld')->buildWindow;
$d->Show; Win32::GUI::Dialog; sub ::tick_Timer {if (my
$a=$q->dequeue_nb) {$d->full->Add($a)}} sub ::reset_Click
{$d->full->ResetContent}" -a barcode.gld