open my $filehandle, '>>', 'C:\Documents and Settings\m\Desktop\info.txt'

##</code><code>##

foreach my $key (qw/name Specialization age/){
    print "enter your $key\n";
    $info{$key} = <STDIN>;
    chomp $info{$key}; # get rid of the EOL
    print $filehandle "$key: $info{$key}\n";
}

##</code><code>##

    while (<>) {
        ...                     # code for each line
    }

##</code><code>##

    unshift(@ARGV, '-') unless @ARGV;
    while ($ARGV = shift) {
        open(ARGV, $ARGV);
        while (<ARGV>) {
            ...         # code for each line
        }
    }