1 2 3 4 5 6 7 8
#!/usr/bin/env perl use strict; use warnings; my $search_str = join('+', @ARGV); my $url = "https://duckduckgo.com/?q=${search_str}"; system("open $url");