#!perl
use 5.020;
use feature 'signatures';
no warnings 'experimental::signatures';

sub day_before( $day ) {
    # ...
}

for my $date (@ARGV) {
    say sprintf "The day before %s is %s", $date, day_before($day);
}