Select Code to Download

Select or download this

my $os = $^O;
my $text_os = $c->createText($x0+570,$y0+10,-text=>"&#1054;&#1057;: $o
+s", -font=>'bar_rus', -fill=>'#afb3b0',-anchor=>'s',-tags => ['os']);
...
        use Device::SerialPort; #we're on Linux
    }
}

Select or download this

[pasha@pelikan tk]$ perl dial.pl
Can't locate Win32/SerialPort.pm in @INC (@INC contains: /usr/local/li
+b/perl5 /usr/local/share/perl5 /usr/lib/perl5 /usr/share/perl5 /usr/l
+ib/perl5 /usr/share/perl5 /usr/local/lib/perl5/site_perl/5.10.0/i386-
+linux-thread-multi /usr/local/lib/perl5/site_perl/5.10.0/i386-linux-t
+hread-multi /usr/local/lib/perl5/site_perl/5.10.0 /usr/lib/perl5/vend
+or_perl/5.10.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl /us
+r/lib/perl5/site_perl .) at dial.pl line 33.
BEGIN failed--compilation aborted at dial.pl line 33.