$ perl temp.pl
String found where operator expected at temp.pl line 13, near "d 'Timeout on read'"
	(Do you need to predeclare d?)
syntax error at temp.pl line 13, near "d 'Timeout on read'"
Missing right curly or square bracket at temp.pl line 16, at end of line
syntax error at temp.pl line 16, at EOF
Execution of temp.pl aborted due to compilation errors.