Select Code to Download

$dir="C:\\Windows\\Desktop\\Perl\\scriptz\\miei\\opendir\\1\\";
opendir DIR, $dir or die "no $dir?: $!";
...
    print "$url\n";
    close FU or die "$!";
}

my $line;
my $line_you_want = 2;
$line = <FU> for 1..$line_you_want;
# $line will now contain just the content of line number $line_you_wan
+t;