#!/usr/bin/perl # http://perlmonks.org/?node_id=1169870 use strict; use warnings; $_ = <