Select Code to Download

To:sanju <sip:san@36.212.176.07>
From: paka<sip:sam@36.212.176.92>
Contact: sanjay<sip:san@36.212.176.07:5060>

my $data='ink.txt';
open DATA, "$data" or die "can't open $data $!";
...
        print "From is: $From\n";
        }
}