String Perl

#!/usr/bin/perl
$today = "Friday";
print "It is $today \n";