How do I handle multi-platform scripting in Perl

When handling multi-platform scripting in Perl, it is essential to write code that can run on various operating systems like Windows, Linux, and macOS. This involves understanding differences in file paths, system commands, and environment variables.

#!/usr/bin/perl
use strict;
use warnings;

# Determine the operating system
my $os = $^O;

# Use OS-specific paths and commands
if ($os eq 'MSWin32') {
    print "Running on Windows\n";
    # Windows-specific code here
} elsif ($os eq 'linux') {
    print "Running on Linux\n";
    # Linux-specific code here
} elsif ($os eq 'darwin') {
    print "Running on macOS\n";
    # macOS-specific code here
} else {
    print "Unknown operating system\n";
}