my @datetime = localtime();
my $year = $datetime[5]+1900;
my $timezone = 1;
my $port = 80;
my @address=(168,191,0,1);

my @data = ( (0) x  37 );
my @form = ( ('C') x 37 );

if($timezone < 0 ) {
  $data[8] = 255 +  $timezone - 1;
  @data[9,10,11] = ( 255,255,255 );
}
else {
  $data[8] = $timezone;
  @data[9,10,11] = ( 0,0,0 );
}

$data[12] = $year;
$form[12] = 'v';

$data[13] = $datetime[1];
$data[14] = $datetime[2];
$data[15] = int(substr($year,2));
$data[16] = $datetime[6];
$data[17] = $datetime[3];
$data[18] = $datetime[4]+1;

$data[23] = int($address[0]);
$data[24] = int($address[1]);
$data[25] = int($address[2]);
$data[26] = int($address[3]);

$data[27] = $port;
$form[27] = 'v';

$data[36] = 6;

my $packet = pack(join('',@form),@data);