@args = ('erase ' , $filename);
system(@args) || die "failed to delete";