#!/usr/bin/perl
use strict;
use warnings;
use Date::Calc 'Date_to_Time';

my $command='"C:\Program Files\Oracle\VirtualBox\VBoxManage.exe" modifyvm "Adobe Acrobat" --biossystemtimeoffset -%s';
my $date='14.10.2011';

my $time=time();
$time-=Date_to_Time(reverse(split(/\./,$date)),0,0,0);
$time*=1000;

$command=sprintf($command,$time);

print "!! $command !!\n";

exec($command);

die(qq[ERROR exec "$command" ($!)\n]);