use warnings;
use strict;

my $num;

if ($num < 0) { $num = 1; }
print $num;