Need help new to perl code!!!!

[gooop]

I am new to perl. I am having trouble with this code line I wrote. On the third line I keep getting this message when I go to run this. This is just the first part of the code. Please any advice would help.I am using TextPad, and window xp pro os.

Usage:C:\Perl\c h1\ filename at C:\Perl\ch1\ line 4, <> line 1.
Press any key to continue . . .

[my $in = $ARGV[0];
unless (defined $in) {
die "Usage: $0 filename";]

[GunnarH]

C:\home>type test.pl
my $in = $ARGV[0];
unless (defined $in) {
        die "Usage: $0 filename";
}
print "File: $in\n";

C:\home>perl test.pl myfile.txt
File: myfile.txt

C:\home>

[gooop]

[QUOTE=gooop]I am new to perl. I am having trouble with this code line I wrote. On thef fourth line I keep getting this message when I go to run this. . Please any advice would help.I am using TextPad, and window xp pro os.This program is suppose to make a modified copy of a text file. In the copy ,every string Fred should be replaced with Larry. I want to have the input filename at the command line. But everytime I go to run this I get the error message below on the 4th line of my code. What is wrong with Usage , am I missing a syntax or something.

Usage:C:\Perl\c h1\ filename at C:\Perl\ch1\ line 4, <> line 1.
Press any key to continue . . .

[#!usr/bin/perl -p
my $in = $ARGV[0];
unless (defined $in) {
die "Usage: $0 filename";
}
print "File: $in\n";
my $out = $in;
$out =~ s/(\.\w+)?$/.out/;
unless (open IN, "<$in") {
die "Can't open '$in': $!";
}
unless (open OUT, ">$out") {
die "Can't write '$out': $!";
}
while (<IN>) {
s/Fred/Larry/gi;
print OUT $_;
}]

[miller]

Did you try what GunnarH suggested?

[gooop]

Did you try what GunnarH suggested?

Yes I did try this but I still get the error message about line 4. What is wrong with Usage: The only reason I re-posted it was so that I included my entire code because what he wrote on the line after line 4 was the same as mine. The second posting was also more clear on what I am trying to do, that is why I posted it twice.I am very new to programming and I very new to forums.

[gooop]

Yes I did try this but I still get the error message about line 4. What is wrong with Usage: The only reason I re-posted it was so that I included my entire code because what he wrote on the line after line 4 was the same as mine. The second posting was also more clear on what I am trying to do, that is why I posted it twice.I am very new to programming and I very new to forums.

I used the use diagnostics; in my code and it it says uncaught exception by the user, same line 4.

[GunnarH]

Did you try what GunnarH suggested?

Yes I did try this but I still get the error message about line 4.

When doing so, did you start the command with perl?

[gooop]

Yes , beleive so i used

 #!/user /bin/perl -p

As the first line of my code

[GunnarH]

When doing so, did you start the command with perl?

Yes , beleive so i used

 #!/user /bin/perl -p

As the first line of my code

I wasn't talking about the shebang line, I was talking about the command, i.e. what you are typing on the command line when invoking the script.

perl test.pl myfile.txt
^^^^

Did you start that typing with the word "perl"?

As regards the shebang line, I'd recommend that you drop it. Besides the switches, it's redundant on Windows, and I'm not sure what that -p switch does.