$_=$filename;
m#/([^/]*)$#;     
$outfile=$1;