print $prog, "$filename\n";