#!/usr/bin/perl
  
# Defining decimal value
var1 = 15.8;
  
# Defining integer valuevar2 = 7;
  
# Defining negative value
var3 = "-15.2";
  
# Calling abs() functionres1 = abs(var1);res2 = abs(var2);res3 = abs(var3);
  
# Printing these values
print "Abs value of var1 isres1\n";
print "Abs value of var2 is res2\n";
print "Abs value of var3 isres3";

Abs value of var1 is 15.8
Abs value of var2 is 7
Abs value of var3 is 15.2

#!/usr/bin/perl
  
# Defining string value
var1 = "Geeks";
  
# Defining Fractional valuevar2 = 7/2;
  
# Calling abs() function
res1 = abs(var1);
res2 = abs(var2);
  
# Print these values
print "Abs value of var1 is res1\n";
print "Abs value of var2 isres2";

Abs value of var1 is 0
Abs value of var2 is 3.5