backup: Tweak restore

backup-tar/restore.pl

-#!/usr/bin/env -S perl -T
+#!/usr/bin/env perl
 
 use warnings;
 use strict;
 
 use File::Spec::Functions ( "catfile", "catdir", "file_name_is_absolute", "splitdir" );
+use File::Basename;
 use Scalar::Util ( "tainted" );
+use v5.16;
 
 $ENV{PATH} = "/usr/local/bin:/usr/bin:/bin";
 
 sub usage {
     my ( $stream ) = @_;
     $stream = *STDERR unless defined $stream;
-    print $stream "backup-restore MACHINE DATE PATH\n"
+    say $stream "backup-restore MACHINE YYYY-MM-DD PATH[S]"
 }
 
 if ( @ARGV < 3 ) {