my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time-(3600*24));
$year+=1900;
$mon+=1;

$year = sprintf "%02d", $year;
$mon  = sprintf "%02d", $mon;
$mday = sprintf "%02d", $mday;
my $file = "extasc_cdr_$year$mon$mday*";
system('scp', "10.255.253.95:/pfad/$file", "./pfad");