Language Basics Perl

#!/usr/bin/perl
$var=0;       
$var %= 3;         # Modulus
print "The remainder of \$var/3 is $var\n";