diff --git a/apps/sam/perl/samcat.pl b/apps/sam/perl/samcat.pl
index f5b51362e..ba766f75d 100644
--- a/apps/sam/perl/samcat.pl
+++ b/apps/sam/perl/samcat.pl
@@ -12,7 +12,7 @@ $sam->send($me,"fooquux");
 
 $sam->readprocess();
 ($source, $message) = @{ $sam->receive() };
-print "$source -- $message";
+print "$source -- $message";