#!/usr/local/bin/perl

$s = -1;

print "La Valeur absolue de $s = ", abs $s;