#!/usr/bin/perl

use strict;
use warnings;

use Text::CSV qw( csv );

my $filename = $ARGV[0] or die "Parameter missing";

print $filename;