in reply to can't replace a directory with a variable

Interchange your single and double quotes (Single quotes do not Intrapolate!). Alternatively, you can use the qq() function. 
$OLEControl->{Document}->write("<html><body><img src = '$file' /></bod
+y></html>"); #

[download]

     Have you been high today? I see the nuns are gay! My brother yelled to me...I love you inside Ed - Benny Lava, by Buffalax

In Section Seekers of Perl Wisdom