One more thing: you probably can replace the

  my $ob = Device::SerialPort->new($PORT) || die;
[download]

With just the tie (eschewing the config file):

  my $ob = tie (*FH, 'Device::SerialPort', $PORT) || die;
[download]

Untested though.