$ cat var_out.pl
#!/usr/bin/env perl
while (<>) {
    print "Got $_"
}