#!/usr/bin/perl

$foo = $ARGV[0];
$bar = $ARGV[1];

if ( $foo eq $bar ) { print "$foo igual a $bar\n"; }
else { print "$foo distinto a $bar\n"; }

