diff --git a/Irpg/Irc.pm b/Irpg/Irc.pm
index 2163f0e4be9d513f78e3e905f369153d918849c8..4b120ed0b44fc424d85426277e84bcf197b76eb6 100644
--- a/Irpg/Irc.pm
+++ b/Irpg/Irc.pm
@@ -32,8 +32,6 @@ our %EXPORT_TAGS = (connection=>[qw($sock &irc_connect &irc_clean &checkmsg)],
 
 my $outbytes = 0; # sent bytes
 my $inbytes = 0; # received bytes
-my $out_ref = \$outbytes;
-my $in_ref = \$inbytes;
 
 my @queue; # outgoing message queue
 
diff --git a/Irpg/Users.pm b/Irpg/Users.pm
index 55839a3fd52533046a910bedbdc80fd5cf544855..b251082262eedfae2126a8d2b4ca28ecc83c5bb1 100644
--- a/Irpg/Users.pm
+++ b/Irpg/Users.pm
@@ -329,13 +329,14 @@ sub info {
     else {
         my $queuedbytes = 0;
         $queuedbytes += (length($_)+2) for @Irpg::Irc::queue; # +2 = \r\n
+
         $info = sprintf(
             "%.2fkb sent, %.2fkb received in %s. %d IRPG users ".
             "online of %d total users. PAUSE_MODE is %d, ".
             "SILENT_MODE is %d. Outgoing queue is %d bytes ".
             "in %d items. On via: %s. Admins online: %s.",
-            $$Irpg::Irc::out_ref/1024,
-            $$Irpg::Irc::in_ref/1024,
+            $Irpg::Irc::outbytes/1024,
+            $Irpg::Irc::inbytes/1024,
             duration(time()-$^T),
             scalar(grep { $rps->{$_}{online} } keys(%$rps)),
             scalar(keys(%$rps)),