print $prog "$filename\n";