blob: 9b7e8c18a57de0e5aadccb40c880020c9033b6a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/perl
use IO::Socket;
$vm = shift;
my $server = new IO::Socket::INET(LocalPort => 7183, Listen => 1);
die "Could not create socket: $!\n" unless $server;
system("vboxmanage startvm $vm --type gui");
print "Listening for connection...\n";
my $client = $server->accept();
print while (<$client>);
|
