diff --git a/AddItem.pl b/AddItem.pl
new file mode 100755
index 0000000..8b52920
--- /dev/null
+++ b/AddItem.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+open(my $fh, ">>$ARGV[0].rss") or die "File:$!";
+my $i = 1;
+while($i < $#ARGV+1){
+ print $fh "\t\t- \n";
+ print $fh "\t\t\t $ARGV[$i] \n";
+ print $fh "\t\t\t $ARGV[$i] \n";
+ print $fh "\t\t\thttp://offsite.obscuritus.ca/$ARGV[$i]\n";
+ print $fh "\t\t\thttp://offsite.obscuritus.ca/$ARGV[$i]\n";
+ my $length = `ls -l $ARGV[$i] |cut -d ' ' -f 5`;
+ chomp($length);
+ print $fh "\t\t\t\n";
+
+ $i++;
+ print $fh "\t\t
\n";
+}
+print $fh "\t\n";
+print $fh "";
diff --git a/BuildCast.pl b/BuildCast.pl
new file mode 100755
index 0000000..5e21dbe
--- /dev/null
+++ b/BuildCast.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Time::localtime;
+
+open(my $fh, ">>$ARGV[0].rss") or die "File:$!";
+
+print $fh "\n";
+print $fh "\n";
+print $fh "\t\n";
+print $fh "\t\t$ARGV[0]\n";
+print $fh "\t\t$ARGV[1]\n";
+print $fh "\t\t$ARGV[2]\n";
+print $fh "\t\t\n";
+my $monthday = localtime->mday();
+my $month = localtime->mon() + 1;
+my $year = localtime->year() + 1900;
+my $hour = localtime->hour();
+my $min = localtime->min();
+my $sec = localtime->sec();
+print $fh "\t\t$monthday $month $year $hour:$min:$sec \n";
+print $fh "\t\t$monthday $month $year $hour:$min:$sec \n";
diff --git a/FormCast.sh b/FormCast.sh
new file mode 100755
index 0000000..7e718a0
--- /dev/null
+++ b/FormCast.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+./BuildCast.pl $@
+./AddItem.pl $1 `ls|tr '\n' ' '`
diff --git a/README b/README
new file mode 100644
index 0000000..e17a3d3
--- /dev/null
+++ b/README
@@ -0,0 +1,2 @@
+This project exists to turn a set of files, typically mp3s, into a podcast. For this, the files will need to be correctly sorted or sortable. Typically, it should be run with:
+Podcast\ Create.pl `ls /path/to/directory/*mp3|tr '\n' ' '` within the desired directory.
diff --git a/Title.rss b/Title.rss
new file mode 100644
index 0000000..485b596
--- /dev/null
+++ b/Title.rss
@@ -0,0 +1,46 @@
+
+
+
+ Title
+ This
+ is
+
+ 9 10 2014 20:34:27
+ 9 10 2014 20:34:27
+ -
+ AddItem.pl
+ AddItem.pl
+ http://offsite.obscuritus.ca/Arcology/AddItem.pl
+ http://offsite.obscuritus.ca/Arcology/AddItem.pl
+
+
+ -
+ BuildCast.pl
+ BuildCast.pl
+ http://offsite.obscuritus.ca/Arcology/BuildCast.pl
+ http://offsite.obscuritus.ca/Arcology/BuildCast.pl
+
+
+ -
+ FormCast.sh
+ FormCast.sh
+ http://offsite.obscuritus.ca/Arcology/FormCast.sh
+ http://offsite.obscuritus.ca/Arcology/FormCast.sh
+
+
+ -
+ README
+ README
+ http://offsite.obscuritus.ca/Arcology/README
+ http://offsite.obscuritus.ca/Arcology/README
+
+
+ -
+ Title.rss
+ Title.rss
+ http://offsite.obscuritus.ca/Arcology/Title.rss
+ http://offsite.obscuritus.ca/Arcology/Title.rss
+
+
+
+
\ No newline at end of file