Language Basics Perl

#!/usr/bin/perl -w
print "21 from 25 is: ", 25 - 21, "\n";