#!/usr/local/bin/perl
use strict;
use warnings;

my %info =  (
        'name' => ' ',
        'age'  => ' ',
        'Specialization' => ' ',

        );
open FILE, '>>C:\Documents and Settings\m\Desktop\info.txt' or die $!;

foreach my $key (keys %info){
        print "enter your $key\n";
        print FILE "$key: " ,$info{'$key'}=<>, "\n";
        }