some sample code of perl training