#!/usr/bin/perl

use strict;
use warnings;

my $file = $ARGV[0];
my $line;

open (FILE, "< $file");

while ($line = <FILE>) {
      chomp $line;
      printf("\n [$line]");
}
close FILE;