#!/usr/bin/perl -w

use strict;
use CGI;
use Device::SerialPort;
use LWP::Simple;

my $query = new CGI;

my $port = new Device::SerialPort("/dev/ttyUSB0");
$port->baudrate(9600);
$port->parity("none"); 
$port->databits(8); 
$port->stopbits(1); 
$port->handshake("xoff"); 
$port->write_settings;
$port->stty_echo("off");
$port->lookclear; 
$port->purge_rx;
$port->write($query->param('befehl'));
$port->write(";");

sleep(1);

my $script = "http://Benutzername:Kennwort\@192.168.0.2/cgi-bin/".$query->param('script');

getprint($script);