IPV4 ping
# perl -MNet::Ping -e 'my $ping = Net::Ping->new(q/icmp/, 10,q//,q//,q//,q//,q/ipv4/);print("ping successfull") if $ping->ping(q/Virt-titan-17/)'
ping successfull

IPV6 ping
perl -MNet::Ping -e 'my $ping = Net::Ping->new(q/icmpv6/, 10,q//,q//,q//,q//,q/ipv6/);print("ping successfull") if $ping->ping(q/Virt-titan-17/)'
'
virt-titan-17:~ #