Select Code to Download

BEGIN
 {
...
  ...code here...
}
#It doesn't work...

open (FILE, "<c:/progra~1/apache~1/apache2/htdocs/info.txt") || print 
+"There is no INFO file here $0";
while ( my $line = <FILE> ) {
  ...code here...
}