#!/usr/bin/perl
use 5.018;
use warnings;

# 1110785

my $days;

if (@ARGV) {
    $days = $ARGV[0];
    say $days;
}else{
    say "n\t Usage: 1110785.pl n \n";
}

deleteData($days);

sub deleteData {
    $days = shift (@_);
    say "days in sub: $days";
}

say "back in main.";

=head EXECUTION

C:\>D:\_Perl_\PMonks\1110785.pl 3
3
days in sub: 3
back in main.

=cut