if( $^O eq 'mswin32' ) {
     ## use xcopy
}
elsif( $^O =~ m[(linux|unix|whatever)] ) {
     ## use something else
}
else {
    ## use another something else
    ## or throw up your hands in disgust.
}