system('data\tools\tar.exe cvf wwwroot.tar wwwroot');
$n = &getnowstr;
print 'Made tar archive. Compressing.';
system('ren wwwroot.tar wwwroot.'         . $n . '.tar');
system('data\tools\bzip2.exe -4 wwwroot.' . $n . '.tar');
system('move wwwroot.'                    . $n . '.tar.bz2 baks');
print 'Done. ' . chr(13) . chr(10);

sub getnowstr {
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) 
    = localtime(time);
  $year += 1900; $mon++;
  $nowstr = $year . 
 sprintf('-%02d%02d-%02d.%02d.%02d',$mon,$mday,$hour,$min,$sec);
}