# search.pl -rw-r--r-- 156 bytes View raw
                                                                                
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");