diff --git a/bindings/perltest.pl b/bindings/perltest.pl
index 91652ad28..509560ad6 100755
--- a/bindings/perltest.pl
+++ b/bindings/perltest.pl
@@ -57,7 +57,8 @@ print "strength:\t\t$lvl\n";
 $chan = new Hamlib::channel($Hamlib::RIG_VFO_A);
 
 $rig->get_channel($chan,1);
-print "get_channel status:\t$rig->{error_status} = ".Hamlib::rigerror($rig->{error_status})."\n";
+@tokens = split("\n",Hamlib::rigerror($rig->{error_status}));
+print "get_channel status:\t$rig->{error_status} = ".$tokens[0]."\n";
 
 print "VFO:\t\t\t".Hamlib::rig_strvfo($chan->{vfo}).", $chan->{freq}\n";