Göra Perl åt mig?

#!/usr/local/bin/perl
#
print "Select före\n";
$fore= <STDIN>;
print "Select efter\n";
$efter= <STDIN>;
chop $fore;
chop $efter;
print "Select file\n";
$file = <STDIN>;                # Name the file
open(INFO, $file);              # Open the file
@lines = <INFO>;             # Read it into an array
close(INFO);                    # Close the file
print @lines;

#!/usr/local/bin/perl
#
while (<STDIN>) {
	chomp;
	print $ARGV[0] . $_ . $ARGV[1] . "\n";
}

./perlskriptet http:// @domain.com < lösenordsfilen