#!/usr/bin/perl

$variable = 1.0;
print ($variable."\n");
&incremente();
print ($variable."\n");

sub incremente
  {
    $variable++;
  }
