#!usr/bin/perl

use strict;

open my $export, '>', "/sys/class/gpio/export" || die "Unable to open export";
print $export "20";
close $export;

open my $direction, '>', "/sys/class/gpio/gpio20/direction" || die "Unable to open direction";
print $direction "out\n";
close $direction;

open (my $value, '>', "/sys/class/gpio/gpio20/value") || die "Unable to open value";

sleep(1);
print $value "0";
print "ON\n";

sleep(1);
print $value "1";
print "OFF\n";

close $value;