my @schedule = get_schedule(@_);
open(STDOUT, ">" . $file) || die $! if(defined($file) && (! -d $file));
open(STDOUT, ">/dev/null") || die $! if(defined($file) && (-d $file));
my @schedule = get_schedule(@_);
open(STDOUT, ">" . $file) || die $! if(defined($file) && (! -d $file));
open(STDOUT, ">/dev/null") || die $! if(defined($file) && (-d $file));