@STMT = split (/\/,$filename) ;