perl -MFile::Spec -le 'sub tshark_path { my @filename = qw( / usr bin tshark ); if ( $^O eq q{MSWin32} ) { @filename = ( q{c:}, q{Program Files}, q{Wireshark}, q{tshark.exe} ); } return @filename; } my @file = tshark_path(); print File::Spec->catfile( @file );'