Select Code to Download

            my $u = Catalyst::Request::Upload->new
              (
...
                                                            'type:'.Du
+mper($headers->content_type).
                                                            '$u:'.Dump
+er($u).
                                                            "\nek!";

[error] Caught exception in engine "$headers:$VAR1 = bless( {
                 'content-disposition' => 'form-data; name="SourceFile
+_1"; filename="aaa.jpg"',
...

ek! at /Library/Perl/5.8.6/Catalyst/Engine.pm line 556."