Convert to minute-Perl script

It takes time in seconds as parameter and converts it into time in minutes.

 
sub convert_to_minutes {
    my $time_in_seconds = $_[0];
    my $time_in_minutes = 0;

    if ((int($time_in_seconds) <= 0) || (length($time_in_seconds) == 0)) {
         $time_in_seconds = 36000;      ## 36000 = 600 minutes  * 60 seconds/minute
    }

    $time_in_minutes = int($time_in_seconds) / 60; 
    return $time_in_minutes; 
}