No trecho de código a seguir, escrito em Perl, o comando my $mensagem = shift; extrai o primeiro item da lista de argumentos e o atribui em $mensagem.

sub log {

my $ mensagem = shift;

print LOGFILE $mensagem;

}