$var = <HANDLE>

[hotti]

hi,

  
$/ = undef;  
open IN, "ips.pl" or die $!;  
my $in = <IN>;  
close IN;  
  
print $in;  

Hotti