Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
32 lines (27 sloc) 662 Bytes
#!/usr/bin/perl
#===============================================================================
#
# FILE: teste.pl
#
# USAGE: ./teste.pl
#
# DESCRIPTION:
#
# OPTIONS: ---
# REQUIREMENTS: ---
# BUGS: ---
# NOTES: ---
# AUTHOR: Ricardo Filipo (rf), ticardo.filipo@gmail.com
# COMPANY: Mito-Lógica design e soluções de comunicação ltda
# VERSION: 1.0
# CREATED: 20-08-2010 15:52:44
# REVISION: ---
#===============================================================================
use strict;
use warnings;
print ("\n\n");
my $testevar = 46;
sub test_all{
print "\n";
return 47;
}