#!/usr/bin/perl
use warnings;
use strict;

my %default = (
	ap => '00:0F:B5:5C:27:94',
	essid => 'linksys',
	mode => 'ap',
);
my $mode = shift || $default{mode};
my $network = shift || $default{$mode};

print "Connecting to $mode $network\n\n";
system "dhcpcd -k wlan0 2> /dev/null; ifconfig wlan0 down && iwlist wlan0 scan > /dev/null && iwconfig wlan0 $mode \"$network\" && ifconfig wlan0 up && dhcpcd wlan0 && ifconfig wlan0"