"...if the value is lower than zero, the program stops..."

Probably your program works as designed?

As our beloved leader already mentioned there is no loop in your program.

As an alternative you can jump to a label:

#!/usr/bin/env perl

use strict;
use warnings;
use feature "say";
use Math::Trig;

CALC: {
    say "What is the radius?";
    my $radius = <STDIN>;
    chomp($radius);
    if ( $radius == 0 ) {
        say "circumference= ", $radius;
    }
    elsif ( $radius < 0 ) {
        say "Radius should be greater than 0";
        goto CALC;
    }
    else {
        my $a = 2 * pi;
        my $c = $a * $radius;
        say "circumference= ", $c;
    }
}

__END__

[download]

Please note: Some say this style is a bad habit AKA the root of all evil.

Best regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

In reply to Re: loop problem by karlgoethebier
in thread loop problem by WisDomSeeKer34

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.