Please don't use html too much, or at least kill the font size so it ain't so wide ... anyway

URI

File::Basename

Win32

index,rindex,substr,length,split,tr

use strict;
use warnings;
use Win32;

die unless $^O =~ /Win32/i;

my $copyme = 'C:/Apache/www-root/images';
my $here = 'C:/Apache/www-root/images/bgs';

$copyme = Win32::GetFullPathName($copyme);
$here = Win32::GetFullPathName($here);

# index STR, SUBSTR

if( (index($copyme,$here) != -1) or (index($here,$copyme) != -1) ) {
   die "a horrible death";
}

# Win32::GetShortPathName and Win32::GetLongPathName
# may also be of interest (for use with open)
[download]

That ought to be more than enough to get you started

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"