Help for this page

Select Code to Download

Select or download this

open INPUT, "<", $InputFile;

my %data = map { chomp; split( /:/, $_, 2 ) } <INPUT>;

close INPUT;