perl -Te'printf $ARGV[0]' foo