Select Code to Download

#! perl -slw
use strict;
...
title|first|last|room|phone|email
Mrs|Linda|Caralo|201|148|she@borg.org
Miss|Jean|Androno|317|167|j@alo.com

P:\test>test2
P:\test>test2
...
                           'room' => '317'
                         }
        };