or download this
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 );'