#!/usr/bin/perl 
#file: plet_test.pl

use strict;
use warnings;
use Data::Dumper;

$|=1;
&do_something(@ARGV);

exit 0;

sub do_something
{
    open(FILE,'<',$_[0]) || die;
    my $line=<FILE>;
    print "$line\n";
}