Help for this page
my $os = $^O; my $text_os = $c->createText($x0+570,$y0+10,-text=>"ОС: $o +s", -font=>'bar_rus', -fill=>'#afb3b0',-anchor=>'s',-tags => ['os']); ... use Device::SerialPort; #we're on Linux } }
[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.