#!/usr/bin/perl while (<>) { } #### cat twogig.txt > /dev/null