perl mainframe.pl #!input#

