Please use "use warnings;" in your scripts. Warnings would have alerted you to the fact that $port, $speed and $link are undef

(Also please use "use strict;", while we are on the subject. It is worth it in the long run if you get used to it now)