my $file_name = "";
if (scalar(@ARGV) == 2){
    $file_name .= $ARGV[1];
} else {
    $ARGV[0] =~ s/(.+)\.\S+/$1/;
    $file_name .= $ARGV[0];
    $file_name .= ".is";
}