chdir($current_dir) or die "cant change\n";
my $dir = $current_dir . "/program2.pl";
my @args = ("$dir", "&");
system (@args);