C:\Old_Data\perlp>perl -we "print( ($ARGV[1] - $ARGV[0])%24 <=8)" 22,02
Argument "22,02" isn't numeric in subtraction (-) at -e line 1.
Use of uninitialized value in subtraction (-) at -e line 1.
1

##</code><code>##

C:\Old_Data\perlp>perl -we "print( ($ARGV[1] - $ARGV[0])%24 <=8)" 22 02
1

##</code><code>##

C:\Old_Data\perlp>perl -e "print( ($ARGV[1] - $ARGV[0])%24)" 22 02
4