open( FH, ">al.avi" ); binmode FH; select FH; # a space saver $LIST = "LIST";