gistfile1.pl

use strict;
use warnings;

use Plack::Request;
use Data::Dumper;
use Path::Class qw/file/;
use File::Copy;
use Cwd;

return sub {
    my $env = shift;

    my $req = Plack::Request->new( $env );

    my $file = $req->uploads->{image};

    if ($file) {
        my $tempfile = Path::Class::File->new($file->{tempname});
        my $movepath = File::Spec->catfile(getcwd, 'tmp',$file->{filename});
        File::Copy::move($tempfile->stringify, $movepath);
    }

    return [
        200,
        ['Content-Type' => 'text/plain'],
        ['OK'],
    ];
};