#!/usr/bin/env perl while (<>) { print "\t$_"; }