#!C:\perl\bin\perl.exe
use strict;
use DBI;
use CGI;
my $query = new CGI;
print $query->header;
my $cgi = CGI->new();
my $user = 'root';
my $pass = '';
my $db ='admin_2';
my $host = 'localhost';
my $driver = "DBI:mysql:$db:$host";
my $dbh = DBI->connect($driver,$user,$pass) or die $DBI::errstr;
my ($hostname, $ip, $subnetmask, $netmask) = @_;
my $sth = $dbh->do("INSERT INTO admin (`hostname`, `ip`, `subnetmask`, `netmask`) VALUES ('$hostname','$ip','$subnetmask','$netmask')");
print<<"_HTML_";
Netzwerk Administration
Administrationsbereich
_HTML_