no if $] > 5.017011, warnings => 'experimental::smartmatch';
use File::Copy qw/copy/;
+use File::Basename qw/fileparse/;
+
+my ($format, $name) = @ARGV;
+my $basename = fileparse $name, qr/\..*/;
-my ($format, $basename, $name) = @ARGV;
my $ret = fork // die $!;
if ($ret) {
$SIG{ALRM} = sub {kill KILL => $ret};