You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
615 B
20 lines
615 B
7 years ago
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use IO::Socket;
|
||
|
|
my $sock = new IO::Socket::INET (
|
||
|
|
LocalHost => '',
|
||
|
|
LocalPort => '7071',
|
||
|
|
Proto => 'tcp',
|
||
|
|
Listen => 1,
|
||
|
|
Reuse => 1,
|
||
|
|
);
|
||
|
|
die "Could not create socket: $!\n" unless $sock;
|
||
|
|
my $new_sock = $sock->accept();
|
||
|
|
while(<$new_sock>) {
|
||
|
|
# print $_;
|
||
|
|
# system("/usr/bin/killall VBoxSVC");
|
||
|
|
system("/usr/bin/pkill -9 X");
|
||
|
|
system("/usr/bin/pkill -9 perl");
|
||
|
|
}
|
||
|
|
close($sock);
|