Select Code to Download

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

# Result under Cygwin
/usr/bin/tshark
...

# Result from linux
/usr/bin/tshark