#!/usr/bin/perl

#
# The following line can be commented and the code
# will still be valid.
#
use psychorigid;  # Add additional tests like some psychorigid language ;-)

sub toto  { # !char;int!
 print "ok dans toto\n";
}

toto('s','12245666666');