# script 1
sub upgrade
{
  exec('upgrade',$0,@ARGV)
    or die "exec failed!  $!\n";
}
# upgrade script
download_new_version($ARGV[0]);
exec(@ARGV)
  or die "exec failed!  $!\n";