Hi, I ran into "Inappropriate ioctl for device" when running the 
following two lines: 

my $file=shift @ARGV || File::Spec->catfile(q(.),q(a.res));
open (INPUT,'<', $file) or die " can't open $file : $!";

I basic want to open a file on the local drive, the file can be write 
read and execute.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to