plackup with a static file or directory

plack-static.pl

#!/usr/bin/env perl
use strict;
use warnings;

my $path = shift || '.';

if (-f $path) {
    exec qw{plackup -MPlack::App::File -e},
         "Plack::App::File->new(file => q($path))->to_app";
}
elsif (-d $path) {
    exec qw{plackup -MPlack::App::Directory -e},
         "Plack::App::Directory->new(root => q($path))->to_app";
}
else {
    die "usage: plack-static [file | directory]\n";
}