#!/usr/local/bin/perl
my $VERSION = "1.02"; my $AUTHOR = "Prilusky"; my $YEAR = "2007";
# different ways of calling a subroutine

package Test;

sub showReceivedParams {
  my(@received) = @_;
  print "\nThis is what we got:\n";
  foreach my $param (@received) {
    print "$param\n";
  }
}

package main;

  my @colors = qw(red blue green yellow);

  Test::showReceivedParams(@colors);

  Test->showReceivedParams(@colors);

  showReceivedParams Test(@colors);