--- lib/Perly/Action/Upload.pm	2007/06/06 17:26:26	28
+++ lib/Perly/Action/Upload.pm	2007/06/06 17:27:23	29
@@ -69,6 +69,7 @@
 
         $self->argument_value( 'file', "" );
 		$filename = scalar( $fh );
+		$filename =~ s/^.*([\/\\])([^\1]+)$/$2/;
     } else {
         $content = $self->argument_value('content');
 		my $uuid = Data::UUID->new();