use strict;
use URI::Escape;

my @tests = ( "1/15/99-Bob.pdf", "test.txt", '\\/:*?"<>|' );

for ( @tests ) {
	print uri_escape( $_, ':\\\\\/*?"<>|' ), "\n";
}