#!/usr/bin/perl

# playing a bit further...
# from CIS 480 - Perl - lecture 1
# last modified: 8-24-04 (added some comments, played with literals)

print "Hello, world!\n";

# example of how you can use underscores within integer literals
# to enhance readability... but doesn't affect how the value
# is output by print

print 1_000_000;
print "\n";

# those underscores are OK in function calls, too

print cos 1_000_000;
print "\n";