diff --git a/modules/qalc.pl b/modules/qalc.pl
index a4fb9f32..f0350e8f 100755
--- a/modules/qalc.pl
+++ b/modules/qalc.pl
@@ -6,18 +6,14 @@
 use warnings;
 use strict;
 
-my $args = join ' ', @ARGV;
-
-if (not length $args) {
+if (not @ARGV) {
     print "Usage: qalc <expression>\n";
     exit;
 }
 
-my $result = `ulimit -t 2; qalc '$args'`;
+my $result = `ulimit -t 2; qalc \Q@ARGV\E`;
 
 $result =~ s/^.*approx.\s+//;
 $result =~ s/^.*=\s+//;
 
-print "$args = $result\n";
-
-# print "$result\n";
+print "@ARGV = $result\n";