#!/usr/bin/perl -w
# Test directory traversal


while(<DATA>)
{
   my $part = $_;
   chomp( $part );
 
   my $uri = $part;
   while ( $uri =~ /(.*)\/\.\.(.*)/ )
   {
	$uri = $1 . $2;
   }

   print "$part - $uri\n";
}

__DATA__
../../../passwd
../../.
.../.../