my $arh;
my $job;
open($arh, "autorep -j $job_name |");
($job)=(<$arh>)[2];
chop $job;
my @job_autorep=split /\s+/, $job;