HP-UX

use strict;
use English;

my $sec;    my $mday;   my $wday;
my $min;    my $mon;    my $yday;
my $hour;   my $year;   my $isdst;

my $time=time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime($time+$ARGV[0]);

$year += 1900;
$mon  += 1;

if (length($mon)  == 1) {$mon = "0$mon";}
if (length($mday) == 1) {$mday = "0$mday";}
if (length($hour) == 1) {$hour = "0$hour";}
if (length($min)  == 1) {$min = "0$min";}
if (length($sec)  == 1) {$sec = "0$sec";}

if ($OSNAME eq "MSWin32")
{
  open (BATFILE, ">chgtime.bat");
  print BATFILE "time $hour:$min:$sec\n";
  print BATFILE "date $mon/$mday/$year\n";
  close BATFILE;
  system("chgtime.bat");
}

elsif ($OSNAME eq "solaris")
{
  system("$run_as_root 'date $mon$mday$hour$min$year.$sec'");
}

elsif ($OSNAME eq "aix")
{
  $year = sprintf("%02d", $year % 100); # last two digits of the year
  system("$run_as_root 'date $mon$mday$hour$min.$sec$year'");
}
elsif ($OSNAME eq "hpux")
{
# There is no 'seconds' field in HP-UX.
# date [-u] [mmddhhmm[[cc]yy]]
# date [-a [-]sss[.fff]]
# Need to sleep 30sec for 1sec time change using 'date -a'  

  if($ARGV[0] >= -60 && $ARGV[0] <= +60) {
    # 'date -a' will not accept '+' sign, but accepts '-' sign
    # 'date -a +60' is not valid whereas 'date -a 60' and 'date -a -60'are valid
    $ARGV[0]=~tr/^+//d;     # removing '+' sign
    system("$run_as_root 'date -a $ARGV[0]'");
    $ARGV[0]=~tr/^-//d;     # removing '-' sign 
    sleep($ARGV[0]*30);
  }
  else {
    system("echo 'yes'|$run_as_root 'date $mon$mday$hour$min$year'");
  }
}