#!/usr/bin/perl -appl
#-lan
use strict;
use warnings;

my $hostfile = "./hosts.cfg";

open(FH, $hostfile) or die( 'Cannot open hostfile' );

while( <FH> ) {

 print $_[1];

}

close( FH );

Add a code snippet to your website: www.paste.org