#!/usr/local/bin/perl -w


$path = "/raid1/vlf/vlfgak/spectrum";


#*********** Delete over_side_filelist ************
print "===Delete over_side_filelist==="."\n";
system("cd $path; rm over_side_filelist "); 
#**************************************************



#*********** Make filelist to $path *****************************************************
print "===Make filelist to $path==="."\n";
system("cd $path/tmp ; ls -al | grep VLF | grep .tar.gz > $path/over_side_filelist");
#****************************************************************************************






