Print the ptime factors of a number

[tenoran]

Thanks for reading my post.
I just started perl programming.
I need to print the prime factors on the screen.
but when I executed my code, it shows nothing.
I dont know what else to do.
This is the code I got...

# number to factor is passed as an argument
$number = $ARGV[0];

# $left is the unfactored part that remains
$left = $number;

# loop through all possible factors
foreach $test (2..$number){

# exit when  no factoring left to do
if ($left == 1) {
  last;
    }

# doest $test divide $left?
if ($left % $test == 0) {

     $left /= $test;

 #print a space between factors
 if ($first) {
      print (" ");
    } else {
        $first = 1;
    }

    # now print the factor
     print ("test");

    # try this factor again
    redo ;
    }
}
print ('\n') if $first;

[Comatose]

Works Fine, What Are You Talking About ;):

#!/usr/bin/perl

# number to factor is passed as an argument
$number = $ARGV[0];

# $left is the unfactored part that remains
$left = $number;

# loop through all possible factors
foreach $test (2..$number){

        # exit when  no factoring left to do
        if ($left == 1) {
                last;
        }

        # doest $test divide $left?
        if ($left % $test == 0) {

                $left /= $test;

                #print a space between factors
                if ($first) {
                        print " ";
                } else {
                        $first = 1;
                }

                # now print the factor
                print "$test";

                # try this factor again
                redo ;
        }
}

print "\n" if $first;

Ps:
I changed this:

print ("test");

to this:

print "$test";

and this:

print ('\n') if $first;

to this:

print "\n" if $first;

[barabala]

how i can convert from switch to if statment/ if statment to switch using #includeformat of declaretion