#!just another perl hacker,
open$?;@<=<0>=>,print@<[0],