#!/usr/bin/perl

sub test {
    my ( $i, $j );

    for ( $i = 20; ; $i += 20 ) {
        for ( $j = 1; $j < 20; $j++ ) {
            last if ( $i % $j );
        }

        if ( $j == 20 ) {
            printf( "Number: %d\n", $i );
            last;
        }
    }

    return( 0 );
}

test();