devd

use strict;
use warnings;

getcontent($ARGV[0]);
use strict;
use warnings;

sub getcontent{
  my $filename = shift;
  my $line;