1 files changed, 26 insertions, 0 deletions
diff --git a/youtube.pl b/youtube.pl
new file mode 100644
index 0000000..1291af2
--- /dev/null
+++ b/youtube.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use LWP::Simple;
+
+if ($#ARGV != 0)
+{
+   exit;
+}
+
+my ($url, $content, $title);
+$url = $ARGV[0];
+
+$content = get($url);
+
+if (!defined $content)
+{
+   exit;
+}
+
+if ($content =~ m/<title>(.*?)<\/title>/s)
+{
+   $title = $1;
+   $title =~ s/^\s+//;
+   $title =~ s/\s+- YouTube\s+$//;
+   print "$title";
+}