#!/usr/bin/perl

sub saluda
  {
    print "¡Hola!\n";
  }

# A continuación, la llamada:

saluda;