my@l==open@ARGS[0];
for(@l){print pop(@l)}